﻿! door_panel_G /modified by VL 3/1/94/
! internal macro: door_int_frame
! a=width, b=height, c=thickness, d= panel frame width,
! e=fill material
f=1"     ! internal frame width of fill

prism_ 22, c,
0,0,15,
0,b,15,
a,b,15,
a,0,15,
0,0,8,
d,d,15,
a-d,d,15,
a-d,3*b/7-d/2,15,
d,3*b/7-d/2,8,
d,3*b/7+d/2,15,
a-d,3*b/7+d/2,15,
a-d,6*b/7-d,15,
d,6*b/7-d,8,
d,6*b/7,15,
a-d,6*b/7,15,
a-d,b-d,15,
d,b-d,15,
d,6*b/7,8,
d,6*b/7-d,15,
d,3*b/7+d/2,8,
d,3*b/7-d/2,15,
d,d,8
addx d
addy d
addz c/4
call door_int_frame a-2*d,3*b/7-3*d/2,c/2,f
    gosub 1               !***fill#1
addy 3*b/7-d/2
call door_int_frame a-2*d,3*b/7-3*d/2,c/2,f
    gosub 1               !***fill#1
addy 3*b/7-d/2
call door_int_frame a-2*d,b/7-d,c/2,f
    gosub 2               !***fill#2

end

1: add f, f, c/8         ! ***fill#1 definition
    material e
    block a-2*(d+f),3*b/7-3*d/2-2*f, 0.004
    material M_
    del 1
return

2: add f, f, c/8         ! ***fill#2 definition
    material e
    block a-2*(d+f),b/7-d-2*f, 0.004
return






